﻿Imports BLL

Public Class frmConsultarEjercicios



    Public Sub frmConsultarEjercicios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tblEjercicios.DataSource = objGestor.listarEjercicios()
        tblEjercicios.Columns(0).Visible = False
        tblEjercicios.Columns(4).Visible = False
        tblEjercicios.Columns(5).Visible = False
        tblEjercicios.Columns(7).Visible = False
        tblEjercicios.Columns(8).Visible = False
        tblEjercicios.Columns(9).Visible = False
        tblEjercicios.Columns(10).Visible = False
        tblEjercicios.Columns(1).HeaderText = "Nombre común"
        tblEjercicios.Columns(2).HeaderText = "Nombre opcional"
        tblEjercicios.Columns(3).HeaderText = "Código"
        tblEjercicios.Columns(6).HeaderText = "Músculo principal"

        tblEjercicios.Columns(1).Width = 300
        tblEjercicios.Columns(2).Width = 300
        tblEjercicios.Columns(3).Width = 200
        tblEjercicios.Columns(6).Width = 265


    End Sub


    Private Sub btnRegistrarEjercicio_Click(sender As Object, e As EventArgs) Handles btnRegistrarEjercicio.Click

        frmTransparente.Show()
        frmRegistrarEjercicio.Show()


    End Sub


    Private Sub txtFiltrarTabla_TextChanged(sender As Object, e As EventArgs) Handles txtFiltrarTabla.TextChanged

        Dim texto As String = txtFiltrarTabla.Text
        Dim lista As IEnumerable = objGestor.filtrarLista(texto)
        tblEjercicios.DataSource = lista

        If lista IsNot Nothing Then
            tblEjercicios.Columns(0).Visible = False
            tblEjercicios.Columns(4).Visible = False
            tblEjercicios.Columns(5).Visible = False
            tblEjercicios.Columns(7).Visible = False
            tblEjercicios.Columns(8).Visible = False
            tblEjercicios.Columns(9).Visible = False
            tblEjercicios.Columns(10).Visible = False
            tblEjercicios.Columns(1).HeaderText = "Nombre común"
            tblEjercicios.Columns(2).HeaderText = "Nombre opcional"
            tblEjercicios.Columns(3).HeaderText = "Código"
            tblEjercicios.Columns(6).HeaderText = "Músculo principal"

            tblEjercicios.Columns(1).Width = 300
            tblEjercicios.Columns(2).Width = 300
            tblEjercicios.Columns(3).Width = 200
            tblEjercicios.Columns(6).Width = 265


        Else
            tblEjercicios.DataSource = Nothing
           
        End If
    End Sub

    Private Sub btnInfoEjercicio_Click(sender As Object, e As EventArgs) Handles btnInfoEjercicio.Click
        'FrmPrincipal.paneForm.Controls.Clear()
        'Dim frm As New Control
        'frm = New frmInfoEjercicio
        'frm.Dock = DockStyle.Fill
        'FrmPrincipal.paneForm.Controls.Add(frm)

        FrmPrincipal.paneForm.Controls.Clear()
        Dim frm As New Control
        frm.Dock = DockStyle.Fill
        FrmPrincipal.paneForm.Controls.Add(frm)

    End Sub
End Class
